home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / mac / Shared / NeuralNetworks / 1-KohonenMap.ma < prev    next >
Text File  |  1994-01-05  |  58KB  |  2,393 lines

  1. (*^
  2.  
  3. ::[paletteColors = 256; currentKernel; 
  4.     fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8,  24, "Times"; ;
  5.     fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6,  18, "Times"; ;
  6.     fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6,  14, "Times"; ;
  7.     fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20,  18, "Times"; ;
  8.     fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15,  14, "Times"; ;
  9.     fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12,  12, "Times"; ;
  10.     fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  11.     fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times"; ;
  12.     fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5,  12, "Courier"; ;
  13.     fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
  14.     fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5,  12, "Courier"; ;
  15.     fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
  16.     fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5,  12, "Courier"; ;
  17.     fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1,  12, "Courier"; ;
  18.     fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1,  10, "Geneva"; ;
  19.     fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  20.     fontset = Left Header, inactive,  12, "Times"; ;
  21.     fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L1,  12, "Times"; ;
  22.     fontset = Left Footer, inactive,  12, "Times"; ;
  23.     fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times"; ;
  24.     fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  25.     fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  26.     fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  27.     fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  28.     fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  29.     fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;
  30.     fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times"; ;]
  31. :[font = subtitle; inactive; dontPreserveAspect; left; fontSize = 12; ]
  32.   from  
  33.   Exploring Neural Networks with Mathematica¬ 
  34.   ⌐ Jacques J. Vidal,  1990
  35. ;[s]
  36. 6:0,0;2,1;6,2;42,1;53,2;83,0;84,-1;
  37. 3:2,13,9,Times,1,12,0,0,0;2,13,9,Times,3,12,21844,21844,21844;2,13,9,Times,1,12,21844,21844,21844;
  38. :[font = section; inactive; dontPreserveAspect; fontSize = 12; ]
  39. Self-Organizing Networks
  40. :[font = subsection; inactive; dontPreserveAspect; ]
  41. Self-Organizing (Kohonen) Maps with linear units
  42. :[font = subsubsection; inactive; dontPreserveAspect; ]
  43. References for this Notebook:
  44. Kohonen, T., Self-Organization and Associative Memory, Springer Verlag, Berlin, 1984
  45. Fort, J.C., Solving a combinatorial Problem via Self-Organizing Process: An Application of the Kohonen Algorithm to the Traveling Salesman Problem, Biol. Cybern., 59, p.33-40, 1988.
  46. ;[s]
  47. 8:0,0;43,2;83,0;85,1;115,0;125,1;127,2;261,1;297,-1;
  48. 3:3,13,9,Times,1,12,0,0,0;3,13,9,Times,0,12,0,0,0;2,13,9,Times,2,12,0,0,0;
  49. :[font = subsubsection; inactive; dontPreserveAspect; ]
  50. Informal Problem Statement:
  51. :[font = text; inactive; dontPreserveAspect; ]
  52. We will explore the dynamics of self-organization and map formation in linear units.  
  53. :[font = subsubsection; inactive; dontPreserveAspect; ]
  54. Network Architecture
  55. :[font = text; inactive; dontPreserveAspect; ]
  56. The network consists of an array of ordered units or cells, each with m inputs.  The array is viewed as a  map. One- and two-dimensional maps are particularly useful but higher dimensional arrays can be considered as well. Each cell independently receives the same m-dimensional input vectors.
  57.  
  58. ;[s]
  59. 5:0,0;70,1;71,0;107,2;110,0;295,-1;
  60. 3:3,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;1,13,9,Times,2,12,0,0,0;
  61. :[font = subsubsection; inactive; dontPreserveAspect; ]
  62. Learning Rule: Adjust only  the Winning Cell and its immediate neighbors
  63. ;[s]
  64. 3:0,0;15,1;71,0;73,-1;
  65. 2:2,13,9,Times,1,12,0,0,0;1,13,9,Times,0,12,0,0,0;
  66. :[font = text; inactive; dontPreserveAspect; ]
  67. In the simplest version of the algorithm proposed by Kohonen, upon receiving each data sample,  the position in the array of the maximally responding cell , i.e., the cell whose weight vector most closely resembles the data vector, will be identified.  The learning process requires that winning cell and its immediate neighbors   adjust the weights in such a way as to reduce the difference between their weight vector and the data vector.  The amount of reduction applied to neighbors  decreases with distance from the winning cell.  
  68.  
  69. After repeated iterations,  the locations of the peak responses will be
  70.      1) correctly ordered,
  71.   2) distributed (mapped) in a smooth fashion, 
  72.   (the distribution will approximate the probability distribution of the data (to the extent that it was revealed by the samples drawn during the iterations)
  73.  3)  contracted around the mean of the distribution.  
  74.  The amount of contraction varies inversely with the variability of the input data.
  75.  After global convergence, the process will continue to show small fluctuations since each data sample will disturb the distribution slightly. The process may be terminated whenever a "satisfactory" level of spatial organization has been reached.  What constitutes a satisfactory solution  depends of course on a particular application. In practice, best results are obtained when the amount of correction applied is decreased progressively during the iterations while at the same time the extent of the neighborhood is narrowed.
  76. This learning rule involves a global operation,  namely, the localization of the maximally responding cell.  This may be inappropriate in some applications and can be obviated by providing lateral connections between neighboring cells with positive (excitatory) weights (for the near neighbors) that become negative (inhibitory) as distance increases.  
  77. ;[s]
  78. 5:0,0;129,1;154,0;301,1;330,0;1863,-1;
  79. 2:3,13,9,Times,0,12,0,0,0;2,13,9,Times,2,12,0,0,0;
  80. :[font = subsubsection; inactive; dontPreserveAspect; ]
  81. Retrieval (Execution) Rule:
  82. :[font = text; inactive; dontPreserveAspect; ]
  83. In the retrieval or execution phase, data is applied to all units in parallel.  In the absence of lateral connections, the units respond individually and independently of one another. 
  84. "Retrieval" consists of observing the position of the cell responding maximally on the map constituted by the cell array.   This position topologically identifies the input vector parameters. 
  85. ;[s]
  86. 3:0,0;223,1;231,0;378,-1;
  87. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,2,12,0,0,0;
  88. :[font = subsubsection; inactive; dontPreserveAspect; ]
  89. Input Data - Uniform Distribution
  90. :[font = text; inactive; dontPreserveAspect; ]
  91. In this notebook the cells have two input ports, but the corresponding data vector is constrained to have unit length. The angular position theta of this vector around the unit circle will be the only independent parameter. Thus the input domain is one-dimensional and can be visualized as points on the circle.
  92. For instance: 
  93. ;[s]
  94. 3:0,0;106,1;117,0;327,-1;
  95. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
  96. :[font = input; dontPreserveAspect; startGroup; ]
  97. angle=N[Pi (2 Random[]- 1)]
  98. datum={Cos[angle],Sin[angle]}
  99. :[font = output; output; inactive; preserveAspect; ]
  100. 2.142496226304260852
  101. ;[o]
  102. 2.1425
  103. :[font = output; output; inactive; preserveAspect; endGroup; ]
  104. {-0.5410624154233887628, 0.840982438946383875}
  105. ;[o]
  106. {-0.541062, 0.840982}
  107. :[font = subsubsection; inactive; dontPreserveAspect; ]
  108. Network  
  109. :[font = text; inactive; dontPreserveAspect; ]
  110. We now establish a one-dimensional array of cells by  creating an (numData x 2)  array of  weightVectors for the two inputs. 
  111. The initial values for the weights will  be chosen as random angles around the circle and will form vectors of unit length,  directly comparable to the data vectors.
  112. ;[s]
  113. 7:0,0;67,1;74,0;77,1;78,0;91,2;104,0;292,-1;
  114. 3:4,13,9,Times,0,12,0,0,0;2,13,9,Times,1,12,0,0,0;1,13,10,Courier,1,12,0,0,0;
  115. :[font = input; dontPreserveAspect; ]
  116. Clear[u]
  117. u:=N[Pi(2 Random[]- 1)]
  118. :[font = input; wordwrap; dontPreserveAspect; startGroup; ]
  119. numData =20
  120. weightAngles=Table[u, {numData}];
  121. Short[
  122. weightVectors=Transpose[{Cos[weightAngles],Sin[weightAngles]}]]
  123. :[font = output; output; inactive; dontPreserveAspect; ]
  124. 20
  125. ;[o]
  126. 20
  127. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  128. Short[{{-0.5988354266432329156, -0.8008721070164806342}, 
  129.    {0.7617253208535689307, -0.6479000969057864443}, 
  130.    {0.5785892940697837348, -0.8156190463616144126}, 
  131.    {0.9972126216079357567, -0.07461224635291407879}, 
  132.    {-0.2909885567157051194, 0.956726533477832873}, 
  133.    {-0.2410320897687226433, 0.9705171465263879765}, 
  134.    {-0.5556601421146418229, 0.8314095299340368113}, 
  135.    {-0.2111483768519151138, 0.9774540208893723905}, 
  136.    {-0.9817045665963839921, -0.1904104616973706808}, 
  137.    {-0.6029160156223729583, -0.797804661622155807}, 
  138.    {0.5249278856398718553, 0.8511467058490290693}, 
  139.    {0.7182484048127536719, -0.6957867697678181118}, 
  140.    {-0.9869423282741861138, -0.1610740223025694898}, 
  141.    {0.1998526217689191754, -0.97982596902311654}, 
  142.    {0.9999736977645397356, -0.007252846276665271363}, 
  143.    {-0.6516839424931891749, 0.7584906321745402443}, 
  144.    {-0.7865668554230200584, 0.6175051270636883229}, 
  145.    {0.7118250376208863916, 0.7023568294079752688}, 
  146.    {0.09019684343657100527, -0.9959239576564461269}, 
  147.    {0.4255903223810587604, 0.9049159505145140685}}]
  148. ;[o]
  149. {{-0.598835, -0.800872}, <<18>>, {0.42559, 0.904916}}
  150. :[font = text; inactive; dontPreserveAspect; ]
  151. According to the learning rule,  for each presentation of a datum vector, the adjustment can be pictured as a rotation of the winning cell and also, but to a lesser extent, of its neighbors,  toward  the datum vector.
  152. The amount of "pull" must decrease with distance.
  153. We will choose a pullProfile function of distance  that describes the relative amount of weight modification imposed on the neighbors . 
  154. We will choose an even function with value one at distance zero and monotonically decreasing with the absolute value of distance. 
  155. A simple exponentially decaying function will do.  The parameter spread will let us adjust the extent of interaction.  We plot the function with spread=0.5.
  156. ;[s]
  157. 14:0,0;110,2;118,0;192,2;198,0;285,1;296,0;423,2;427,0;442,2;468,0;601,1;607,0;681,1;693,-1;
  158. 3:7,13,9,Times,0,12,0,0,0;3,13,9,Times,1,12,0,0,0;4,13,9,Times,2,12,0,0,0;
  159. :[font = input; dontPreserveAspect; ]
  160. Clear[y, distance,spread,pullProfile]
  161. pullProfile[y_, spread_] := Exp[ -spread Abs[y] ]
  162. :[font = input; wordwrap; dontPreserveAspect; startGroup; ]
  163. Plot[pullProfile[distance, .5],
  164. {distance,-8,8},PlotRange->{0,1},AxesOrigin->{0,0}]
  165. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 89; pictureWidth = 250; pictureHeight = 156; ]
  166. %!
  167. %%Creator: Mathematica
  168. %%AspectRatio: 0.61803 
  169. MathPictureStart
  170. /Courier findfont 10  scalefont  setfont
  171. % Scaling calculations
  172. 0.5 0.0595238 0 0.618034 [
  173. [(-7.5)] 0.05357 0 0 2 Msboxa
  174. [(-5)] 0.20238 0 0 2 Msboxa
  175. [(-2.5)] 0.35119 0 0 2 Msboxa
  176. [(0)] 0.5 0 0 2 Msboxa
  177. [(2.5)] 0.64881 0 0 2 Msboxa
  178. [(5)] 0.79762 0 0 2 Msboxa
  179. [(7.5)] 0.94643 0 0 2 Msboxa
  180. [(0.2)] 0.4875 0.12361 1 0 Msboxa
  181. [(0.4)] 0.4875 0.24721 1 0 Msboxa
  182. [(0.6)] 0.4875 0.37082 1 0 Msboxa
  183. [(0.8)] 0.4875 0.49443 1 0 Msboxa
  184. [(1)] 0.4875 0.61803 1 0 Msboxa
  185. [ -0.001 -0.001 0 0 ]
  186. [ 1.001 0.61903 0 0 ]
  187. ] MathScale
  188. % Start of Graphics
  189. 1 setlinecap
  190. 1 setlinejoin
  191. newpath
  192. %%Object: Graphics
  193. [ ] 0 setdash
  194. 0 setgray
  195. gsave
  196. gsave
  197. 0.002 setlinewidth
  198. 0.05357 0 moveto
  199. 0.05357 0.00625 lineto
  200. stroke
  201. grestore
  202. [(-7.5)] 0.05357 0 0 2 Mshowa
  203. gsave
  204. 0.002 setlinewidth
  205. 0.20238 0 moveto
  206. 0.20238 0.00625 lineto
  207. stroke
  208. grestore
  209. [(-5)] 0.20238 0 0 2 Mshowa
  210. gsave
  211. 0.002 setlinewidth
  212. 0.35119 0 moveto
  213. 0.35119 0.00625 lineto
  214. stroke
  215. grestore
  216. [(-2.5)] 0.35119 0 0 2 Mshowa
  217. gsave
  218. 0.002 setlinewidth
  219. 0.5 0 moveto
  220. 0.5 0.00625 lineto
  221. stroke
  222. grestore
  223. [(0)] 0.5 0 0 2 Mshowa
  224. gsave
  225. 0.002 setlinewidth
  226. 0.64881 0 moveto
  227. 0.64881 0.00625 lineto
  228. stroke
  229. grestore
  230. [(2.5)] 0.64881 0 0 2 Mshowa
  231. gsave
  232. 0.002 setlinewidth
  233. 0.79762 0 moveto
  234. 0.79762 0.00625 lineto
  235. stroke
  236. grestore
  237. [(5)] 0.79762 0 0 2 Mshowa
  238. gsave
  239. 0.002 setlinewidth
  240. 0.94643 0 moveto
  241. 0.94643 0.00625 lineto
  242. stroke
  243. grestore
  244. [(7.5)] 0.94643 0 0 2 Mshowa
  245. gsave
  246. 0.001 setlinewidth
  247. 0.08333 0 moveto
  248. 0.08333 0.00375 lineto
  249. stroke
  250. grestore
  251. gsave
  252. 0.001 setlinewidth
  253. 0.1131 0 moveto
  254. 0.1131 0.00375 lineto
  255. stroke
  256. grestore
  257. gsave
  258. 0.001 setlinewidth
  259. 0.14286 0 moveto
  260. 0.14286 0.00375 lineto
  261. stroke
  262. grestore
  263. gsave
  264. 0.001 setlinewidth
  265. 0.17262 0 moveto
  266. 0.17262 0.00375 lineto
  267. stroke
  268. grestore
  269. gsave
  270. 0.001 setlinewidth
  271. 0.23214 0 moveto
  272. 0.23214 0.00375 lineto
  273. stroke
  274. grestore
  275. gsave
  276. 0.001 setlinewidth
  277. 0.2619 0 moveto
  278. 0.2619 0.00375 lineto
  279. stroke
  280. grestore
  281. gsave
  282. 0.001 setlinewidth
  283. 0.29167 0 moveto
  284. 0.29167 0.00375 lineto
  285. stroke
  286. grestore
  287. gsave
  288. 0.001 setlinewidth
  289. 0.32143 0 moveto
  290. 0.32143 0.00375 lineto
  291. stroke
  292. grestore
  293. gsave
  294. 0.001 setlinewidth
  295. 0.38095 0 moveto
  296. 0.38095 0.00375 lineto
  297. stroke
  298. grestore
  299. gsave
  300. 0.001 setlinewidth
  301. 0.41071 0 moveto
  302. 0.41071 0.00375 lineto
  303. stroke
  304. grestore
  305. gsave
  306. 0.001 setlinewidth
  307. 0.44048 0 moveto
  308. 0.44048 0.00375 lineto
  309. stroke
  310. grestore
  311. gsave
  312. 0.001 setlinewidth
  313. 0.47024 0 moveto
  314. 0.47024 0.00375 lineto
  315. stroke
  316. grestore
  317. gsave
  318. 0.001 setlinewidth
  319. 0.52976 0 moveto
  320. 0.52976 0.00375 lineto
  321. stroke
  322. grestore
  323. gsave
  324. 0.001 setlinewidth
  325. 0.55952 0 moveto
  326. 0.55952 0.00375 lineto
  327. stroke
  328. grestore
  329. gsave
  330. 0.001 setlinewidth
  331. 0.58929 0 moveto
  332. 0.58929 0.00375 lineto
  333. stroke
  334. grestore
  335. gsave
  336. 0.001 setlinewidth
  337. 0.61905 0 moveto
  338. 0.61905 0.00375 lineto
  339. stroke
  340. grestore
  341. gsave
  342. 0.001 setlinewidth
  343. 0.67857 0 moveto
  344. 0.67857 0.00375 lineto
  345. stroke
  346. grestore
  347. gsave
  348. 0.001 setlinewidth
  349. 0.70833 0 moveto
  350. 0.70833 0.00375 lineto
  351. stroke
  352. grestore
  353. gsave
  354. 0.001 setlinewidth
  355. 0.7381 0 moveto
  356. 0.7381 0.00375 lineto
  357. stroke
  358. grestore
  359. gsave
  360. 0.001 setlinewidth
  361. 0.76786 0 moveto
  362. 0.76786 0.00375 lineto
  363. stroke
  364. grestore
  365. gsave
  366. 0.001 setlinewidth
  367. 0.82738 0 moveto
  368. 0.82738 0.00375 lineto
  369. stroke
  370. grestore
  371. gsave
  372. 0.001 setlinewidth
  373. 0.85714 0 moveto
  374. 0.85714 0.00375 lineto
  375. stroke
  376. grestore
  377. gsave
  378. 0.001 setlinewidth
  379. 0.8869 0 moveto
  380. 0.8869 0.00375 lineto
  381. stroke
  382. grestore
  383. gsave
  384. 0.001 setlinewidth
  385. 0.91667 0 moveto
  386. 0.91667 0.00375 lineto
  387. stroke
  388. grestore
  389. gsave
  390. 0.001 setlinewidth
  391. 0.02381 0 moveto
  392. 0.02381 0.00375 lineto
  393. stroke
  394. grestore
  395. gsave
  396. 0.001 setlinewidth
  397. 0.97619 0 moveto
  398. 0.97619 0.00375 lineto
  399. stroke
  400. grestore
  401. gsave
  402. 0.002 setlinewidth
  403. 0 0 moveto
  404. 1 0 lineto
  405. stroke
  406. grestore
  407. gsave
  408. 0.002 setlinewidth
  409. 0.5 0.12361 moveto
  410. 0.50625 0.12361 lineto
  411. stroke
  412. grestore
  413. [(0.2)] 0.4875 0.12361 1 0 Mshowa
  414. gsave
  415. 0.002 setlinewidth
  416. 0.5 0.24721 moveto
  417. 0.50625 0.24721 lineto
  418. stroke
  419. grestore
  420. [(0.4)] 0.4875 0.24721 1 0 Mshowa
  421. gsave
  422. 0.002 setlinewidth
  423. 0.5 0.37082 moveto
  424. 0.50625 0.37082 lineto
  425. stroke
  426. grestore
  427. [(0.6)] 0.4875 0.37082 1 0 Mshowa
  428. gsave
  429. 0.002 setlinewidth
  430. 0.5 0.49443 moveto
  431. 0.50625 0.49443 lineto
  432. stroke
  433. grestore
  434. [(0.8)] 0.4875 0.49443 1 0 Mshowa
  435. gsave
  436. 0.002 setlinewidth
  437. 0.5 0.61803 moveto
  438. 0.50625 0.61803 lineto
  439. stroke
  440. grestore
  441. [(1)] 0.4875 0.61803 1 0 Mshowa
  442. gsave
  443. 0.001 setlinewidth
  444. 0.5 0.02472 moveto
  445. 0.50375 0.02472 lineto
  446. stroke
  447. grestore
  448. gsave
  449. 0.001 setlinewidth
  450. 0.5 0.04944 moveto
  451. 0.50375 0.04944 lineto
  452. stroke
  453. grestore
  454. gsave
  455. 0.001 setlinewidth
  456. 0.5 0.07416 moveto
  457. 0.50375 0.07416 lineto
  458. stroke
  459. grestore
  460. gsave
  461. 0.001 setlinewidth
  462. 0.5 0.09889 moveto
  463. 0.50375 0.09889 lineto
  464. stroke
  465. grestore
  466. gsave
  467. 0.001 setlinewidth
  468. 0.5 0.14833 moveto
  469. 0.50375 0.14833 lineto
  470. stroke
  471. grestore
  472. gsave
  473. 0.001 setlinewidth
  474. 0.5 0.17305 moveto
  475. 0.50375 0.17305 lineto
  476. stroke
  477. grestore
  478. gsave
  479. 0.001 setlinewidth
  480. 0.5 0.19777 moveto
  481. 0.50375 0.19777 lineto
  482. stroke
  483. grestore
  484. gsave
  485. 0.001 setlinewidth
  486. 0.5 0.22249 moveto
  487. 0.50375 0.22249 lineto
  488. stroke
  489. grestore
  490. gsave
  491. 0.001 setlinewidth
  492. 0.5 0.27193 moveto
  493. 0.50375 0.27193 lineto
  494. stroke
  495. grestore
  496. gsave
  497. 0.001 setlinewidth
  498. 0.5 0.29666 moveto
  499. 0.50375 0.29666 lineto
  500. stroke
  501. grestore
  502. gsave
  503. 0.001 setlinewidth
  504. 0.5 0.32138 moveto
  505. 0.50375 0.32138 lineto
  506. stroke
  507. grestore
  508. gsave
  509. 0.001 setlinewidth
  510. 0.5 0.3461 moveto
  511. 0.50375 0.3461 lineto
  512. stroke
  513. grestore
  514. gsave
  515. 0.001 setlinewidth
  516. 0.5 0.39554 moveto
  517. 0.50375 0.39554 lineto
  518. stroke
  519. grestore
  520. gsave
  521. 0.001 setlinewidth
  522. 0.5 0.42026 moveto
  523. 0.50375 0.42026 lineto
  524. stroke
  525. grestore
  526. gsave
  527. 0.001 setlinewidth
  528. 0.5 0.44498 moveto
  529. 0.50375 0.44498 lineto
  530. stroke
  531. grestore
  532. gsave
  533. 0.001 setlinewidth
  534. 0.5 0.46971 moveto
  535. 0.50375 0.46971 lineto
  536. stroke
  537. grestore
  538. gsave
  539. 0.001 setlinewidth
  540. 0.5 0.51915 moveto
  541. 0.50375 0.51915 lineto
  542. stroke
  543. grestore
  544. gsave
  545. 0.001 setlinewidth
  546. 0.5 0.54387 moveto
  547. 0.50375 0.54387 lineto
  548. stroke
  549. grestore
  550. gsave
  551. 0.001 setlinewidth
  552. 0.5 0.56859 moveto
  553. 0.50375 0.56859 lineto
  554. stroke
  555. grestore
  556. gsave
  557. 0.001 setlinewidth
  558. 0.5 0.59331 moveto
  559. 0.50375 0.59331 lineto
  560. stroke
  561. grestore
  562. gsave
  563. 0.002 setlinewidth
  564. 0.5 0 moveto
  565. 0.5 0.61803 lineto
  566. stroke
  567. grestore
  568. grestore
  569. 0 0 moveto
  570. 1 0 lineto
  571. 1 0.61803 lineto
  572. 0 0.61803 lineto
  573. closepath
  574. clip
  575. newpath
  576. gsave
  577. gsave
  578. 0.004 setlinewidth
  579. 0.02381 0.01132 moveto
  580. 0.06349 0.0158 lineto
  581. 0.10317 0.02205 lineto
  582. 0.14286 0.03077 lineto
  583. 0.18254 0.04294 lineto
  584. 0.22222 0.05993 lineto
  585. 0.2619 0.08364 lineto
  586. 0.30159 0.11673 lineto
  587. 0.34127 0.16291 lineto
  588. 0.38095 0.22736 lineto
  589. 0.42063 0.31731 lineto
  590. 0.46032 0.44284 lineto
  591. 0.48016 0.52315 lineto
  592. 0.49008 0.56862 lineto
  593. 0.49504 0.59281 lineto
  594. 0.49752 0.60529 lineto
  595. 0.49876 0.61163 lineto
  596. 0.5 0.61803 lineto
  597. 0.50248 0.60529 lineto
  598. 0.50496 0.59281 lineto
  599. 0.50992 0.56862 lineto
  600. 0.51984 0.52315 lineto
  601. 0.53968 0.44284 lineto
  602. 0.57937 0.31731 lineto
  603. 0.61905 0.22736 lineto
  604. 0.65873 0.16291 lineto
  605. 0.69841 0.11673 lineto
  606. 0.7381 0.08364 lineto
  607. 0.77778 0.05993 lineto
  608. 0.81746 0.04294 lineto
  609. 0.85714 0.03077 lineto
  610. 0.89683 0.02205 lineto
  611. 0.93651 0.0158 lineto
  612. 0.97619 0.01132 lineto
  613. stroke
  614. grestore
  615. grestore
  616. % End of Graphics
  617. MathPictureEnd
  618. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  619. The Unformatted text for this cell was not generated.
  620. Use options in the Actions Preferences dialog box to 
  621. control when Unformatted text is generated.
  622. ;[o]
  623. -Graphics-
  624. :[font = text; inactive; dontPreserveAspect; ]
  625. To get a discrete set of influence coefficients to apply to the cell array, we make a table of the pullProfile function, with an odd number of entries, centered on the zero distance (the winning cell). The parameter  pullExtent  sets the number of neighbors on each side of the winning cell that will receive an adjustment
  626. ;[s]
  627. 5:0,0;75,1;76,0;217,1;227,0;323,-1;
  628. 2:3,13,9,Times,0,12,0,0,0;2,13,9,Times,1,12,0,0,0;
  629. :[font = input; preserveAspect; ]
  630. pullExtent = 4;
  631. spread=0.5;
  632. :[font = text; inactive; dontPreserveAspect; ]
  633. To apply the adjustment in parallel to the whole array of cells,  we need to insert these influence coefficients into an array of length numData.  Most of the entries will be zero since only the immediate neighbors are affected. 
  634. ;[s]
  635. 3:0,0;137,1;144,0;230,-1;
  636. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
  637. :[font = input; wordwrap; dontPreserveAspect; startGroup; ]
  638. mask = Join[ Table[
  639.                     pullProfile[distance,spread],{distance,-pullExtent,
  640.                     pullExtent}],
  641.                      Table[0,{numData-2*pullExtent-1}] ] 
  642. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  643. {0.1353352832366126919, 0.223130160148429829, 0.367879441171442322, 
  644.   0.6065306597126334232, 1, 0.6065306597126334232, 0.367879441171442322, 
  645.   0.223130160148429829, 0.1353352832366126919, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  646.   0, 0}
  647. ;[o]
  648. {0.135335, 0.22313, 0.367879, 0.606531, 1, 0.606531, 0.367879, 0.22313, 
  649.  
  650.   0.135335, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
  651. :[font = text; inactive; dontPreserveAspect; ]
  652. Finally, to facilitate subsequent indexing, we  rotate this array to place the maximum value (unity)  in the first position.  During the calculations,  it will be shifted by the amount necessary to bring it into alignment with the "winning" cell,  i.e., the cell displaying the maximum netInput.
  653. ;[s]
  654. 3:0,0;286,1;294,0;296,-1;
  655. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
  656. :[font = input; dontPreserveAspect; startGroup; ]
  657. pullFactors =RotateLeft[mask , pullExtent] 
  658. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  659. {1, 0.6065306597126334232, 0.367879441171442322, 0.223130160148429829, 
  660.   0.1353352832366126919, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  661.   0.1353352832366126919, 0.223130160148429829, 0.367879441171442322, 
  662.   0.6065306597126334232}
  663. ;[o]
  664. {1, 0.606531, 0.367879, 0.22313, 0.135335, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  665.  
  666.   0.135335, 0.22313, 0.367879, 0.606531}
  667. :[font = text; inactive; dontPreserveAspect; ]
  668. Let us check the length of the new array
  669. :[font = input; dontPreserveAspect; startGroup; ]
  670. Length[pullFactors]==numData
  671. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  672. True
  673. ;[o]
  674. True
  675. :[font = subsubsection; inactive; dontPreserveAspect; ]
  676. Network Learning
  677. :[font = text; inactive; dontPreserveAspect; ]
  678. We will first run one iteration of the network and analyse each step.  
  679. First we generate one data item,  datum,  and look at the "net inputs" (the weighted sums) it produces in the cells of the array.
  680. ;[s]
  681. 3:0,0;106,1;111,0;202,-1;
  682. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
  683. :[font = input; dontPreserveAspect; startGroup; ]
  684. theta=u;
  685.     datum= N[{Cos[theta],Sin[theta]}];
  686.     Short[netInputs = weightVectors.datum] 
  687. :[font = output; output; inactive; dontPreserveAspect; ]
  688. Short[{-0.5372367629751502098, -0.8754746256260281819, 
  689.    -0.9675609645160973073, -0.4225656795349874318, 0.9978007928608218211, 
  690.    0.9930268136840252886, 0.9742188336594112582, 0.98894332023577992, 
  691.    0.1691945772022621398, -0.5329241083339341605, 0.6104061866258221694, 
  692.    -0.904884104562055846, 0.198486896964300702, -0.9871658500260248674, 
  693.    -0.360538873089604231, 0.9399850628094713436, 0.8558332081054942939, 
  694.    0.4051203212225112045, -0.9634305515569832727, 0.6958405084342001396}]
  695. ;[o]
  696. {-0.537237, -0.875475, -0.967561, <<8>>6, <<14>>, -0.963431, 0.695841}
  697. :[font = text; inactive; dontPreserveAspect; ]
  698. Next, we find the position index of the  winning cell  .
  699. :[font = input; dontPreserveAspect; startGroup; ]
  700.  
  701. Position[ netInputs, Max[netInputs]] 
  702. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  703. {{5}}
  704. ;[o]
  705. {{5}}
  706. :[font = text; inactive; dontPreserveAspect; ]
  707. We just need the number inside the list (Flatten will do) and we should allow for the unlikely event of more than one maximum, in which case we will just take the first to show up in the array.
  708. ;[s]
  709. 3:0,0;41,1;48,0;194,-1;
  710. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
  711. :[font = input; dontPreserveAspect; startGroup; ]
  712. peakIndex=First[Flatten[%]]
  713. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  714. 5
  715. ;[o]
  716. 5
  717. :[font = text; inactive; dontPreserveAspect; ]
  718. We can now align the array of pullFactors with the peakIndexth cell by shifting  to the right by an amount equal to peakIndex -1. 
  719. ;[s]
  720. 6:0,0;30,2;41,0;51,1;60,0;116,1;131,-1;
  721. 3:3,13,9,Times,0,12,0,0,0;2,13,9,Times,1,12,0,0,0;1,13,10,Courier,1,12,0,0,0;
  722. :[font = input; dontPreserveAspect; ]
  723.  
  724. pullFactors= RotateRight[pullFactors,peakIndex-1];
  725. :[font = text; inactive; dontPreserveAspect; ]
  726. We are now in position to adjust the weights in parallel in the entire weightVectors array. Specifically, we will rotate the weightAngles toward the datum angle theta,  in proportions set by the pullFactors array and multiplied  by a gain parameter, gain,  that controls the size of the successive adjustments. At this time  gain is set to a constant value.
  727. ;[s]
  728. 15:0,0;44,1;56,0;71,2;84,0;125,2;137,0;161,2;166,0;195,2;206,0;249,2;255,0;325,2;329,0;358,-1;
  729. 3:8,13,9,Times,0,12,0,0,0;1,13,9,Times,2,12,0,0,0;6,13,9,Times,1,12,0,0,0;
  730. :[font = input; dontPreserveAspect; ]
  731. gain = 0.5;
  732. :[font = text; inactive; dontPreserveAspect; ]
  733. Let us apply the learning rule
  734. :[font = input; dontPreserveAspect; ]
  735. winningCellWeightsBefore=weightVectors[[peakIndex]];
  736. newWeightAngles = 
  737.     weightAngles + gain (theta-weightAngles) pullFactors;    
  738. newWeightVectors=
  739. Transpose[{Cos[newWeightAngles],Sin[newWeightAngles]}];
  740.  
  741. winningCellWeightsAfter=newWeightVectors[[peakIndex]];
  742. :[font = input; dontPreserveAspect; startGroup; ]
  743. Show[ 
  744.     Graphics[ {
  745.             RGBColor[0,0,1], PointSize[0.06],
  746.             Point[datum], Line[{{0,0},datum}],
  747.             RGBColor[0,0,1],Line[{winningCellWeightsBefore,
  748.             winningCellWeightsAfter}],
  749.              PointSize[0.02],
  750.              Point[winningCellWeightsBefore],
  751.              RGBColor[0,0,1],PointSize[0.04],
  752.              Point[winningCellWeightsAfter]}
  753.      ],
  754. Axes-> True,
  755. AxesOrigin->{0,0},AxesLabel->{{w1},{w2}}];
  756. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 116; pictureWidth = 233; pictureHeight = 144; endGroup; endGroup; ]
  757. %!
  758. %%Creator: Mathematica
  759. %%AspectRatio: 0.61803 
  760. MathPictureStart
  761. /Courier findfont 10  scalefont  setfont
  762. % Scaling calculations
  763. 0.97619 2.69213 0.0147151 0.615227 [
  764. [(-0.35)] 0.03394 0.01472 0 2 Msboxa
  765. [(-0.3)] 0.16855 0.01472 0 2 Msboxa
  766. [(-0.25)] 0.30316 0.01472 0 2 Msboxa
  767. [(-0.2)] 0.43776 0.01472 0 2 Msboxa
  768. [(-0.15)] 0.57237 0.01472 0 2 Msboxa
  769. [(-0.1)] 0.70698 0.01472 0 2 Msboxa
  770. [(-0.05)] 0.84158 0.01472 0 2 Msboxa
  771. [({w1})] 1.025 0.01472 -1 0 Msboxa
  772. [(0.2)] 0.96369 0.13776 1 0 Msboxa
  773. [(0.4)] 0.96369 0.26081 1 0 Msboxa
  774. [(0.6)] 0.96369 0.38385 1 0 Msboxa
  775. [(0.8)] 0.96369 0.5069 1 0 Msboxa
  776. [({w2})] 0.97619 0.61803 0 -4 Msboxa
  777. [ -0.001 -0.001 0 0 ]
  778. [ 1.001 0.61903 0 0 ]
  779. ] MathScale
  780. % Start of Graphics
  781. 1 setlinecap
  782. 1 setlinejoin
  783. newpath
  784. %%Object: Graphics
  785. [ ] 0 setdash
  786. 0 setgray
  787. gsave
  788. gsave
  789. 0.002 setlinewidth
  790. 0.03394 0.01472 moveto
  791. 0.03394 0.02097 lineto
  792. stroke
  793. grestore
  794. [(-0.35)] 0.03394 0.01472 0 2 Mshowa
  795. gsave
  796. 0.002 setlinewidth
  797. 0.16855 0.01472 moveto
  798. 0.16855 0.02097 lineto
  799. stroke
  800. grestore
  801. [(-0.3)] 0.16855 0.01472 0 2 Mshowa
  802. gsave
  803. 0.002 setlinewidth
  804. 0.30316 0.01472 moveto
  805. 0.30316 0.02097 lineto
  806. stroke
  807. grestore
  808. [(-0.25)] 0.30316 0.01472 0 2 Mshowa
  809. gsave
  810. 0.002 setlinewidth
  811. 0.43776 0.01472 moveto
  812. 0.43776 0.02097 lineto
  813. stroke
  814. grestore
  815. [(-0.2)] 0.43776 0.01472 0 2 Mshowa
  816. gsave
  817. 0.002 setlinewidth
  818. 0.57237 0.01472 moveto
  819. 0.57237 0.02097 lineto
  820. stroke
  821. grestore
  822. [(-0.15)] 0.57237 0.01472 0 2 Mshowa
  823. gsave
  824. 0.002 setlinewidth
  825. 0.70698 0.01472 moveto
  826. 0.70698 0.02097 lineto
  827. stroke
  828. grestore
  829. [(-0.1)] 0.70698 0.01472 0 2 Mshowa
  830. gsave
  831. 0.002 setlinewidth
  832. 0.84158 0.01472 moveto
  833. 0.84158 0.02097 lineto
  834. stroke
  835. grestore
  836. [(-0.05)] 0.84158 0.01472 0 2 Mshowa
  837. gsave
  838. 0.001 setlinewidth
  839. 0.06086 0.01472 moveto
  840. 0.06086 0.01847 lineto
  841. stroke
  842. grestore
  843. gsave
  844. 0.001 setlinewidth
  845. 0.08779 0.01472 moveto
  846. 0.08779 0.01847 lineto
  847. stroke
  848. grestore
  849. gsave
  850. 0.001 setlinewidth
  851. 0.11471 0.01472 moveto
  852. 0.11471 0.01847 lineto
  853. stroke
  854. grestore
  855. gsave
  856. 0.001 setlinewidth
  857. 0.14163 0.01472 moveto
  858. 0.14163 0.01847 lineto
  859. stroke
  860. grestore
  861. gsave
  862. 0.001 setlinewidth
  863. 0.19547 0.01472 moveto
  864. 0.19547 0.01847 lineto
  865. stroke
  866. grestore
  867. gsave
  868. 0.001 setlinewidth
  869. 0.22239 0.01472 moveto
  870. 0.22239 0.01847 lineto
  871. stroke
  872. grestore
  873. gsave
  874. 0.001 setlinewidth
  875. 0.24931 0.01472 moveto
  876. 0.24931 0.01847 lineto
  877. stroke
  878. grestore
  879. gsave
  880. 0.001 setlinewidth
  881. 0.27624 0.01472 moveto
  882. 0.27624 0.01847 lineto
  883. stroke
  884. grestore
  885. gsave
  886. 0.001 setlinewidth
  887. 0.33008 0.01472 moveto
  888. 0.33008 0.01847 lineto
  889. stroke
  890. grestore
  891. gsave
  892. 0.001 setlinewidth
  893. 0.357 0.01472 moveto
  894. 0.357 0.01847 lineto
  895. stroke
  896. grestore
  897. gsave
  898. 0.001 setlinewidth
  899. 0.38392 0.01472 moveto
  900. 0.38392 0.01847 lineto
  901. stroke
  902. grestore
  903. gsave
  904. 0.001 setlinewidth
  905. 0.41084 0.01472 moveto
  906. 0.41084 0.01847 lineto
  907. stroke
  908. grestore
  909. gsave
  910. 0.001 setlinewidth
  911. 0.46469 0.01472 moveto
  912. 0.46469 0.01847 lineto
  913. stroke
  914. grestore
  915. gsave
  916. 0.001 setlinewidth
  917. 0.49161 0.01472 moveto
  918. 0.49161 0.01847 lineto
  919. stroke
  920. grestore
  921. gsave
  922. 0.001 setlinewidth
  923. 0.51853 0.01472 moveto
  924. 0.51853 0.01847 lineto
  925. stroke
  926. grestore
  927. gsave
  928. 0.001 setlinewidth
  929. 0.54545 0.01472 moveto
  930. 0.54545 0.01847 lineto
  931. stroke
  932. grestore
  933. gsave
  934. 0.001 setlinewidth
  935. 0.59929 0.01472 moveto
  936. 0.59929 0.01847 lineto
  937. stroke
  938. grestore
  939. gsave
  940. 0.001 setlinewidth
  941. 0.62621 0.01472 moveto
  942. 0.62621 0.01847 lineto
  943. stroke
  944. grestore
  945. gsave
  946. 0.001 setlinewidth
  947. 0.65313 0.01472 moveto
  948. 0.65313 0.01847 lineto
  949. stroke
  950. grestore
  951. gsave
  952. 0.001 setlinewidth
  953. 0.68006 0.01472 moveto
  954. 0.68006 0.01847 lineto
  955. stroke
  956. grestore
  957. gsave
  958. 0.001 setlinewidth
  959. 0.7339 0.01472 moveto
  960. 0.7339 0.01847 lineto
  961. stroke
  962. grestore
  963. gsave
  964. 0.001 setlinewidth
  965. 0.76082 0.01472 moveto
  966. 0.76082 0.01847 lineto
  967. stroke
  968. grestore
  969. gsave
  970. 0.001 setlinewidth
  971. 0.78774 0.01472 moveto
  972. 0.78774 0.01847 lineto
  973. stroke
  974. grestore
  975. gsave
  976. 0.001 setlinewidth
  977. 0.81466 0.01472 moveto
  978. 0.81466 0.01847 lineto
  979. stroke
  980. grestore
  981. gsave
  982. 0.001 setlinewidth
  983. 0.86851 0.01472 moveto
  984. 0.86851 0.01847 lineto
  985. stroke
  986. grestore
  987. gsave
  988. 0.001 setlinewidth
  989. 0.89543 0.01472 moveto
  990. 0.89543 0.01847 lineto
  991. stroke
  992. grestore
  993. gsave
  994. 0.001 setlinewidth
  995. 0.92235 0.01472 moveto
  996. 0.92235 0.01847 lineto
  997. stroke
  998. grestore
  999. gsave
  1000. 0.001 setlinewidth
  1001. 0.94927 0.01472 moveto
  1002. 0.94927 0.01847 lineto
  1003. stroke
  1004. grestore
  1005. gsave
  1006. 0.001 setlinewidth
  1007. 0.00702 0.01472 moveto
  1008. 0.00702 0.01847 lineto
  1009. stroke
  1010. grestore
  1011. [({w1})] 1.025 0.01472 -1 0 Mshowa
  1012. gsave
  1013. 0.002 setlinewidth
  1014. 0 0.01472 moveto
  1015. 1 0.01472 lineto
  1016. stroke
  1017. grestore
  1018. gsave
  1019. 0.002 setlinewidth
  1020. 0.97619 0.13776 moveto
  1021. 0.98244 0.13776 lineto
  1022. stroke
  1023. grestore
  1024. [(0.2)] 0.96369 0.13776 1 0 Mshowa
  1025. gsave
  1026. 0.002 setlinewidth
  1027. 0.97619 0.26081 moveto
  1028. 0.98244 0.26081 lineto
  1029. stroke
  1030. grestore
  1031. [(0.4)] 0.96369 0.26081 1 0 Mshowa
  1032. gsave
  1033. 0.002 setlinewidth
  1034. 0.97619 0.38385 moveto
  1035. 0.98244 0.38385 lineto
  1036. stroke
  1037. grestore
  1038. [(0.6)] 0.96369 0.38385 1 0 Mshowa
  1039. gsave
  1040. 0.002 setlinewidth
  1041. 0.97619 0.5069 moveto
  1042. 0.98244 0.5069 lineto
  1043. stroke
  1044. grestore
  1045. [(0.8)] 0.96369 0.5069 1 0 Mshowa
  1046. gsave
  1047. 0.001 setlinewidth
  1048. 0.97619 0.03932 moveto
  1049. 0.97994 0.03932 lineto
  1050. stroke
  1051. grestore
  1052. gsave
  1053. 0.001 setlinewidth
  1054. 0.97619 0.06393 moveto
  1055. 0.97994 0.06393 lineto
  1056. stroke
  1057. grestore
  1058. gsave
  1059. 0.001 setlinewidth
  1060. 0.97619 0.08854 moveto
  1061. 0.97994 0.08854 lineto
  1062. stroke
  1063. grestore
  1064. gsave
  1065. 0.001 setlinewidth
  1066. 0.97619 0.11315 moveto
  1067. 0.97994 0.11315 lineto
  1068. stroke
  1069. grestore
  1070. gsave
  1071. 0.001 setlinewidth
  1072. 0.97619 0.16237 moveto
  1073. 0.97994 0.16237 lineto
  1074. stroke
  1075. grestore
  1076. gsave
  1077. 0.001 setlinewidth
  1078. 0.97619 0.18698 moveto
  1079. 0.97994 0.18698 lineto
  1080. stroke
  1081. grestore
  1082. gsave
  1083. 0.001 setlinewidth
  1084. 0.97619 0.21159 moveto
  1085. 0.97994 0.21159 lineto
  1086. stroke
  1087. grestore
  1088. gsave
  1089. 0.001 setlinewidth
  1090. 0.97619 0.2362 moveto
  1091. 0.97994 0.2362 lineto
  1092. stroke
  1093. grestore
  1094. gsave
  1095. 0.001 setlinewidth
  1096. 0.97619 0.28541 moveto
  1097. 0.97994 0.28541 lineto
  1098. stroke
  1099. grestore
  1100. gsave
  1101. 0.001 setlinewidth
  1102. 0.97619 0.31002 moveto
  1103. 0.97994 0.31002 lineto
  1104. stroke
  1105. grestore
  1106. gsave
  1107. 0.001 setlinewidth
  1108. 0.97619 0.33463 moveto
  1109. 0.97994 0.33463 lineto
  1110. stroke
  1111. grestore
  1112. gsave
  1113. 0.001 setlinewidth
  1114. 0.97619 0.35924 moveto
  1115. 0.97994 0.35924 lineto
  1116. stroke
  1117. grestore
  1118. gsave
  1119. 0.001 setlinewidth
  1120. 0.97619 0.40846 moveto
  1121. 0.97994 0.40846 lineto
  1122. stroke
  1123. grestore
  1124. gsave
  1125. 0.001 setlinewidth
  1126. 0.97619 0.43307 moveto
  1127. 0.97994 0.43307 lineto
  1128. stroke
  1129. grestore
  1130. gsave
  1131. 0.001 setlinewidth
  1132. 0.97619 0.45768 moveto
  1133. 0.97994 0.45768 lineto
  1134. stroke
  1135. grestore
  1136. gsave
  1137. 0.001 setlinewidth
  1138. 0.97619 0.48229 moveto
  1139. 0.97994 0.48229 lineto
  1140. stroke
  1141. grestore
  1142. gsave
  1143. 0.001 setlinewidth
  1144. 0.97619 0.53151 moveto
  1145. 0.97994 0.53151 lineto
  1146. stroke
  1147. grestore
  1148. gsave
  1149. 0.001 setlinewidth
  1150. 0.97619 0.55611 moveto
  1151. 0.97994 0.55611 lineto
  1152. stroke
  1153. grestore
  1154. gsave
  1155. 0.001 setlinewidth
  1156. 0.97619 0.58072 moveto
  1157. 0.97994 0.58072 lineto
  1158. stroke
  1159. grestore
  1160. gsave
  1161. 0.001 setlinewidth
  1162. 0.97619 0.60533 moveto
  1163. 0.97994 0.60533 lineto
  1164. stroke
  1165. grestore
  1166. [({w2})] 0.97619 0.61803 0 -4 Mshowa
  1167. gsave
  1168. 0.002 setlinewidth
  1169. 0.97619 0 moveto
  1170. 0.97619 0.61803 lineto
  1171. stroke
  1172. grestore
  1173. grestore
  1174. 0 0 moveto
  1175. 1 0 lineto
  1176. 1 0.61803 lineto
  1177. 0 0.61803 lineto
  1178. closepath
  1179. clip
  1180. newpath
  1181. gsave
  1182. 0 0 1 setrgbcolor
  1183. 0.06 setlinewidth
  1184. 0.02381 0.59016 Mdot
  1185. 0.004 setlinewidth
  1186. 0.97619 0.01472 moveto
  1187. 0.02381 0.59016 lineto
  1188. stroke
  1189. 0.19281 0.60332 moveto
  1190. 0.10783 0.59706 lineto
  1191. stroke
  1192. 0.02 setlinewidth
  1193. 0.19281 0.60332 Mdot
  1194. 0.04 setlinewidth
  1195. 0.10783 0.59706 Mdot
  1196. grestore
  1197. % End of Graphics
  1198. MathPictureEnd
  1199. :[font = text; inactive; dontPreserveAspect; ]
  1200. We can see that the vector representing the maximally responding cell has moved closer to the datum.  We can also look at the current state of the entire array by showing the irregular polygon formed by the weight vectors of successive cells in the array
  1201.  
  1202. :[font = input; dontPreserveAspect; startGroup; ]
  1203. Show[ 
  1204.     Graphics[ {
  1205.             PointSize[0.02] , RGBColor[1,0,0], 
  1206.             Map[Point, weightVectors],
  1207.             Line[weightVectors],        
  1208.             RGBColor[0,0,1], PointSize[0.04],Thickness[0.01],
  1209.             Point[datum], Line[{{0,0},datum}],
  1210.             RGBColor[0,1,1],Point[winningCellWeightsAfter]
  1211.             }],
  1212. Axes->True,
  1213. AxesOrigin->{0,0},AspectRatio->1]
  1214. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 88; pictureWidth = 280; pictureHeight = 280; ]
  1215. %!
  1216. %%Creator: Mathematica
  1217. %%AspectRatio: 1 
  1218. MathPictureStart
  1219. /Courier findfont 10  scalefont  setfont
  1220. % Scaling calculations
  1221. 0.496877 0.479326 0.504457 0.482615 [
  1222. [(-1)] 0.01755 0.50446 0 2 Msboxa
  1223. [(-0.5)] 0.25721 0.50446 0 2 Msboxa
  1224. [(0.5)] 0.73654 0.50446 0 2 Msboxa
  1225. [(1)] 0.9762 0.50446 0 2 Msboxa
  1226. [(-1)] 0.48438 0.02184 1 0 Msboxa
  1227. [(-0.5)] 0.48438 0.26315 1 0 Msboxa
  1228. [(0.5)] 0.48438 0.74576 1 0 Msboxa
  1229. [(1)] 0.48438 0.98707 1 0 Msboxa
  1230. [ -0.001 -0.001 0 0 ]
  1231. [ 1.001 1.001 0 0 ]
  1232. ] MathScale
  1233. % Start of Graphics
  1234. 1 setlinecap
  1235. 1 setlinejoin
  1236. newpath
  1237. %%Object: Graphics
  1238. [ ] 0 setdash
  1239. 0 setgray
  1240. gsave
  1241. gsave
  1242. 0.002 setlinewidth
  1243. 0.01755 0.50446 moveto
  1244. 0.01755 0.51071 lineto
  1245. stroke
  1246. grestore
  1247. [(-1)] 0.01755 0.50446 0 2 Mshowa
  1248. gsave
  1249. 0.002 setlinewidth
  1250. 0.25721 0.50446 moveto
  1251. 0.25721 0.51071 lineto
  1252. stroke
  1253. grestore
  1254. [(-0.5)] 0.25721 0.50446 0 2 Mshowa
  1255. gsave
  1256. 0.002 setlinewidth
  1257. 0.73654 0.50446 moveto
  1258. 0.73654 0.51071 lineto
  1259. stroke
  1260. grestore
  1261. [(0.5)] 0.73654 0.50446 0 2 Mshowa
  1262. gsave
  1263. 0.002 setlinewidth
  1264. 0.9762 0.50446 moveto
  1265. 0.9762 0.51071 lineto
  1266. stroke
  1267. grestore
  1268. [(1)] 0.9762 0.50446 0 2 Mshowa
  1269. gsave
  1270. 0.001 setlinewidth
  1271. 0.06548 0.50446 moveto
  1272. 0.06548 0.50821 lineto
  1273. stroke
  1274. grestore
  1275. gsave
  1276. 0.001 setlinewidth
  1277. 0.11342 0.50446 moveto
  1278. 0.11342 0.50821 lineto
  1279. stroke
  1280. grestore
  1281. gsave
  1282. 0.001 setlinewidth
  1283. 0.16135 0.50446 moveto
  1284. 0.16135 0.50821 lineto
  1285. stroke
  1286. grestore
  1287. gsave
  1288. 0.001 setlinewidth
  1289. 0.20928 0.50446 moveto
  1290. 0.20928 0.50821 lineto
  1291. stroke
  1292. grestore
  1293. gsave
  1294. 0.001 setlinewidth
  1295. 0.30515 0.50446 moveto
  1296. 0.30515 0.50821 lineto
  1297. stroke
  1298. grestore
  1299. gsave
  1300. 0.001 setlinewidth
  1301. 0.35308 0.50446 moveto
  1302. 0.35308 0.50821 lineto
  1303. stroke
  1304. grestore
  1305. gsave
  1306. 0.001 setlinewidth
  1307. 0.40101 0.50446 moveto
  1308. 0.40101 0.50821 lineto
  1309. stroke
  1310. grestore
  1311. gsave
  1312. 0.001 setlinewidth
  1313. 0.44894 0.50446 moveto
  1314. 0.44894 0.50821 lineto
  1315. stroke
  1316. grestore
  1317. gsave
  1318. 0.001 setlinewidth
  1319. 0.54481 0.50446 moveto
  1320. 0.54481 0.50821 lineto
  1321. stroke
  1322. grestore
  1323. gsave
  1324. 0.001 setlinewidth
  1325. 0.59274 0.50446 moveto
  1326. 0.59274 0.50821 lineto
  1327. stroke
  1328. grestore
  1329. gsave
  1330. 0.001 setlinewidth
  1331. 0.64067 0.50446 moveto
  1332. 0.64067 0.50821 lineto
  1333. stroke
  1334. grestore
  1335. gsave
  1336. 0.001 setlinewidth
  1337. 0.68861 0.50446 moveto
  1338. 0.68861 0.50821 lineto
  1339. stroke
  1340. grestore
  1341. gsave
  1342. 0.001 setlinewidth
  1343. 0.78447 0.50446 moveto
  1344. 0.78447 0.50821 lineto
  1345. stroke
  1346. grestore
  1347. gsave
  1348. 0.001 setlinewidth
  1349. 0.83241 0.50446 moveto
  1350. 0.83241 0.50821 lineto
  1351. stroke
  1352. grestore
  1353. gsave
  1354. 0.001 setlinewidth
  1355. 0.88034 0.50446 moveto
  1356. 0.88034 0.50821 lineto
  1357. stroke
  1358. grestore
  1359. gsave
  1360. 0.001 setlinewidth
  1361. 0.92827 0.50446 moveto
  1362. 0.92827 0.50821 lineto
  1363. stroke
  1364. grestore
  1365. gsave
  1366. 0.002 setlinewidth
  1367. 0 0.50446 moveto
  1368. 1 0.50446 lineto
  1369. stroke
  1370. grestore
  1371. gsave
  1372. 0.002 setlinewidth
  1373. 0.49688 0.02184 moveto
  1374. 0.50313 0.02184 lineto
  1375. stroke
  1376. grestore
  1377. [(-1)] 0.48438 0.02184 1 0 Mshowa
  1378. gsave
  1379. 0.002 setlinewidth
  1380. 0.49688 0.26315 moveto
  1381. 0.50313 0.26315 lineto
  1382. stroke
  1383. grestore
  1384. [(-0.5)] 0.48438 0.26315 1 0 Mshowa
  1385. gsave
  1386. 0.002 setlinewidth
  1387. 0.49688 0.74576 moveto
  1388. 0.50313 0.74576 lineto
  1389. stroke
  1390. grestore
  1391. [(0.5)] 0.48438 0.74576 1 0 Mshowa
  1392. gsave
  1393. 0.002 setlinewidth
  1394. 0.49688 0.98707 moveto
  1395. 0.50313 0.98707 lineto
  1396. stroke
  1397. grestore
  1398. [(1)] 0.48438 0.98707 1 0 Mshowa
  1399. gsave
  1400. 0.001 setlinewidth
  1401. 0.49688 0.0701 moveto
  1402. 0.50063 0.0701 lineto
  1403. stroke
  1404. grestore
  1405. gsave
  1406. 0.001 setlinewidth
  1407. 0.49688 0.11837 moveto
  1408. 0.50063 0.11837 lineto
  1409. stroke
  1410. grestore
  1411. gsave
  1412. 0.001 setlinewidth
  1413. 0.49688 0.16663 moveto
  1414. 0.50063 0.16663 lineto
  1415. stroke
  1416. grestore
  1417. gsave
  1418. 0.001 setlinewidth
  1419. 0.49688 0.21489 moveto
  1420. 0.50063 0.21489 lineto
  1421. stroke
  1422. grestore
  1423. gsave
  1424. 0.001 setlinewidth
  1425. 0.49688 0.31141 moveto
  1426. 0.50063 0.31141 lineto
  1427. stroke
  1428. grestore
  1429. gsave
  1430. 0.001 setlinewidth
  1431. 0.49688 0.35967 moveto
  1432. 0.50063 0.35967 lineto
  1433. stroke
  1434. grestore
  1435. gsave
  1436. 0.001 setlinewidth
  1437. 0.49688 0.40793 moveto
  1438. 0.50063 0.40793 lineto
  1439. stroke
  1440. grestore
  1441. gsave
  1442. 0.001 setlinewidth
  1443. 0.49688 0.4562 moveto
  1444. 0.50063 0.4562 lineto
  1445. stroke
  1446. grestore
  1447. gsave
  1448. 0.001 setlinewidth
  1449. 0.49688 0.55272 moveto
  1450. 0.50063 0.55272 lineto
  1451. stroke
  1452. grestore
  1453. gsave
  1454. 0.001 setlinewidth
  1455. 0.49688 0.60098 moveto
  1456. 0.50063 0.60098 lineto
  1457. stroke
  1458. grestore
  1459. gsave
  1460. 0.001 setlinewidth
  1461. 0.49688 0.64924 moveto
  1462. 0.50063 0.64924 lineto
  1463. stroke
  1464. grestore
  1465. gsave
  1466. 0.001 setlinewidth
  1467. 0.49688 0.6975 moveto
  1468. 0.50063 0.6975 lineto
  1469. stroke
  1470. grestore
  1471. gsave
  1472. 0.001 setlinewidth
  1473. 0.49688 0.79403 moveto
  1474. 0.50063 0.79403 lineto
  1475. stroke
  1476. grestore
  1477. gsave
  1478. 0.001 setlinewidth
  1479. 0.49688 0.84229 moveto
  1480. 0.50063 0.84229 lineto
  1481. stroke
  1482. grestore
  1483. gsave
  1484. 0.001 setlinewidth
  1485. 0.49688 0.89055 moveto
  1486. 0.50063 0.89055 lineto
  1487. stroke
  1488. grestore
  1489. gsave
  1490. 0.001 setlinewidth
  1491. 0.49688 0.93881 moveto
  1492. 0.50063 0.93881 lineto
  1493. stroke
  1494. grestore
  1495. gsave
  1496. 0.002 setlinewidth
  1497. 0.49688 0 moveto
  1498. 0.49688 1 lineto
  1499. stroke
  1500. grestore
  1501. grestore
  1502. 0 0 moveto
  1503. 1 0 lineto
  1504. 1 1 lineto
  1505. 0 1 lineto
  1506. closepath
  1507. clip
  1508. newpath
  1509. gsave
  1510. 1 0 0 setrgbcolor
  1511. gsave
  1512. 0.02 setlinewidth
  1513. 0.20984 0.11794 Mdot
  1514. 0.86199 0.19177 Mdot
  1515. 0.77421 0.11083 Mdot
  1516. 0.97487 0.46845 Mdot
  1517. 0.3574 0.96619 Mdot
  1518. 0.38134 0.97284 Mdot
  1519. 0.23053 0.90571 Mdot
  1520. 0.39567 0.97619 Mdot
  1521. 0.02632 0.41256 Mdot
  1522. 0.20788 0.11942 Mdot
  1523. 0.74849 0.91523 Mdot
  1524. 0.84115 0.16866 Mdot
  1525. 0.02381 0.42672 Mdot
  1526. 0.59267 0.03158 Mdot
  1527. 0.97619 0.50096 Mdot
  1528. 0.18451 0.87052 Mdot
  1529. 0.11985 0.80247 Mdot
  1530. 0.83807 0.84342 Mdot
  1531. 0.54011 0.02381 Mdot
  1532. 0.70087 0.94118 Mdot
  1533. grestore
  1534. 0.004 setlinewidth
  1535. 0.20984 0.11794 moveto
  1536. 0.86199 0.19177 lineto
  1537. 0.77421 0.11083 lineto
  1538. 0.97487 0.46845 lineto
  1539. 0.3574 0.96619 lineto
  1540. 0.38134 0.97284 lineto
  1541. 0.23053 0.90571 lineto
  1542. 0.39567 0.97619 lineto
  1543. 0.02632 0.41256 lineto
  1544. 0.20788 0.11942 lineto
  1545. 0.74849 0.91523 lineto
  1546. 0.84115 0.16866 lineto
  1547. 0.02381 0.42672 lineto
  1548. 0.59267 0.03158 lineto
  1549. 0.97619 0.50096 lineto
  1550. 0.18451 0.87052 lineto
  1551. 0.11985 0.80247 lineto
  1552. 0.83807 0.84342 lineto
  1553. 0.54011 0.02381 lineto
  1554. 0.70087 0.94118 lineto
  1555. stroke
  1556. 0 0 1 setrgbcolor
  1557. 0.04 setlinewidth
  1558. 0.32731 0.95586 Mdot
  1559. 0.01 setlinewidth
  1560. 0.49688 0.50446 moveto
  1561. 0.32731 0.95586 lineto
  1562. stroke
  1563. 0 1 1 setrgbcolor
  1564. 0.04 setlinewidth
  1565. 0.34227 0.96128 Mdot
  1566. grestore
  1567. % End of Graphics
  1568. MathPictureEnd
  1569. :[font = output; output; inactive; dontPreserveAspect; endGroup; ]
  1570. The Unformatted text for this cell was not generated.
  1571. Use options in the Actions Preferences dialog box to 
  1572. control when Unformatted text is generated.
  1573. ;[o]
  1574. -Graphics-
  1575. :[font = subsubsection; inactive; dontPreserveAspect; ]
  1576. Spatial Self-organization
  1577. :[font = text; inactive; dontPreserveAspect; ]
  1578. We will now reset the problem parameters and iterate the process to see how the cell weights ( represented as points around the circle)  self-organize when input data from a uniform distribution is applied repeatedly and weights are corrected according to the rules just described.
  1579. The output graphs can be animated to better illustrate the transformation.
  1580.  
  1581. :[font = input; dontPreserveAspect; startGroup; ]
  1582. Clear[weightAngles,newWeightAngles,weightVectors,newWeightVectors]
  1583. :[font = input; dontPreserveAspect; ]
  1584. numData =50;
  1585. weightAngles=Table[u, {numData}];
  1586. weightVectors=Transpose[{Cos[weightAngles],Sin[weightAngles]}];
  1587. :[font = text; inactive; dontPreserveAspect; ]
  1588. We set new parameters and recalculate pullFactors exactly as detailed earlier.
  1589. ;[s]
  1590. 3:0,0;38,1;50,0;79,-1;
  1591. 2:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
  1592. :[font = input; wordwrap; dontPreserveAspect; ]
  1593. pullExtent = 5;
  1594. spread=0.6;
  1595. :[font = input; dontPreserveAspect; ]
  1596. pullFactors =RotateLeft[Join[
  1597.     Table[ pullProfile[distance,spread],
  1598.            {distance,-pullExtent, pullExtent}],
  1599.     Table[0,{numData-2*pullExtent-1}] ],pullExtent]; 
  1600. :[font = text; inactive; dontPreserveAspect; ]
  1601. We will now iterate the network.  To avoid an excessive number of  graphics outputs,  we will look at the configuration periodically, after  iterInterval steps,  and continue the process for numSnap successive such iteration intervals (each graph will be separated by iterInterval iterations).
  1602. ;[s]
  1603. 7:0,0;141,1;154,0;191,1;198,0;268,1;280,0;294,-1;
  1604. 2:4,13,9,Times,0,12,0,0,0;3,13,9,Times,1,12,0,0,0;
  1605. :[font = text; inactive; dontPreserveAspect; ]
  1606. We need to introduce two additional heuristics.  At the beginning the network is very disorganized and large corrections are desirable.  These should be progressively reduced as spatial organization settles in.  This can be accomplished by using a decay factor for the adjustment gain gain.  To further improve convergence,  it is also desirable to start with a broad spatial spread of adjustment  (determined by the value of pullExtent).  This will require recalculating the correction table periodically and will be omitted at this time.
  1607. ;[s]
  1608. 6:0,0;285,1;289,0;426,2;436,3;437,0;540,-1;
  1609. 4:3,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;1,13,10,Courier,1,12,0,0,0;1,13,10,Courier,0,12,0,0,0;
  1610. :[font = input; wordwrap; dontPreserveAspect; ]
  1611. numSnap=10;
  1612. iterInterval=50;
  1613. gain=0.3;
  1614. decay=1/(numSnap*iterInterval);
  1615. iterNumber=0;
  1616. datum=winningCell={0.,0.};
  1617. :[font = input; inactive; wordwrap; dontPreserveAspect; startGroup; ]
  1618. Do[
  1619. Show[ 
  1620.     Graphics[ {
  1621.             PointSize[0.02] , RGBColor[0,0,1], 
  1622.             Map[Point, weightVectors],
  1623.             Line[weightVectors],        
  1624.             RGBColor[0,0,1], PointSize[0.06],Thickness[0.01],
  1625.             Point[datum], Line[{{0,0},datum}],
  1626.             RGBColor[0,1,1],PointSize[0.06], Point[winningCell]},
  1627. Axes->False,            
  1628. AxesOrigin->{0,0},AspectRatio->1,PlotRange->{{-1,1},{-1,1}},
  1629. PlotLabel -> StringForm["Iteration Number ``",iterNumber]]];
  1630. Do[
  1631.     theta=u;
  1632.     datum= {Cos[theta],Sin[theta]};
  1633.     netInputs = weightVectors.datum;
  1634.     peakIndex=
  1635.     Flatten[Position[ netInputs, Max[netInputs] ]][[1]];
  1636.         
  1637.     factors = gain RotateRight[pullFactors,peakIndex-1];
  1638.     newWeightAngles = 
  1639. weightAngles + (theta-weightAngles) factors;    
  1640.     newWeightVectors=
  1641.     Transpose[{Cos[newWeightAngles],Sin[newWeightAngles]}];
  1642. weightAngles = newWeightAngles; weightVectors=newWeightVectors;
  1643. winningCell=weightVectors[[peakIndex]];
  1644. gain=gain - decay gain;iterNumber++,
  1645. {iterInterval}], 
  1646.  
  1647. {numSnap}];
  1648. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 95; pictureWidth = 195; pictureHeight = 195; ]
  1649. %!
  1650. %%Creator: Mathematica
  1651. %%AspectRatio: 1 
  1652. MathPictureStart
  1653. /Courier findfont 10  scalefont  setfont
  1654. % Scaling calculations
  1655. 0.5 0.5 0.5 0.5 [
  1656. [(Iteration Number 0)] 0.5 1 0 -2 Msboxa
  1657. [ 0 0 0 0 ]
  1658. [ 1 1 0 0 ]
  1659. ] MathScale
  1660. % Start of Graphics
  1661. 1 setlinecap
  1662. 1 setlinejoin
  1663. newpath
  1664. %%Object: Graphics
  1665. [ ] 0 setdash
  1666. 0 setgray
  1667. gsave
  1668. [(Iteration Number 0)] 0.5 1 0 -2 Mshowa
  1669. grestore
  1670. 0 0 moveto
  1671. 1 0 lineto
  1672. 1 1 lineto
  1673. 0 1 lineto
  1674. closepath
  1675. clip
  1676. newpath
  1677. gsave
  1678. 0 0 1 setrgbcolor
  1679. gsave
  1680. 0.02 setlinewidth
  1681. 0.53979 0.00159 Mdot
  1682. 0.05309 0.72422 Mdot
  1683. 0.00282 0.44699 Mdot
  1684. 0.35314 0.02205 Mdot
  1685. 0.08031 0.22823 Mdot
  1686. 0.88773 0.81569 Mdot
  1687. 0.92133 0.23078 Mdot
  1688. 0.94948 0.28099 Mdot
  1689. 0.24902 0.93244 Mdot
  1690. 0.01547 0.37659 Mdot
  1691. 0.33219 0.029 Mdot
  1692. 0.29428 0.95572 Mdot
  1693. 0.20278 0.09793 Mdot
  1694. 0.99362 0.42041 Mdot
  1695. 0.27683 0.05257 Mdot
  1696. 0.17445 0.12051 Mdot
  1697. 0.88666 0.18299 Mdot
  1698. 0.46659 0.99888 Mdot
  1699. 0.16556 0.87169 Mdot
  1700. 0.87212 0.16604 Mdot
  1701. 0.00085 0.47077 Mdot
  1702. 0.17998 0.11583 Mdot
  1703. 0.92264 0.23284 Mdot
  1704. 0.44638 0.99712 Mdot
  1705. 0.0139 0.61708 Mdot
  1706. 0.96248 0.30997 Mdot
  1707. 0.99099 0.40552 Mdot
  1708. 0.32257 0.96746 Mdot
  1709. 0.3333 0.97139 Mdot
  1710. 0.79037 0.09296 Mdot
  1711. 0.04378 0.70461 Mdot
  1712. 0.5469 0.0022 Mdot
  1713. 0.92915 0.24342 Mdot
  1714. 0.00156 0.46058 Mdot
  1715. 0.07855 0.23096 Mdot
  1716. 0.00192 0.45625 Mdot
  1717. 0.33191 0.9709 Mdot
  1718. 0.23001 0.07916 Mdot
  1719. 0.98905 0.60406 Mdot
  1720. 0.99363 0.57956 Mdot
  1721. 0.61265 0.98714 Mdot
  1722. 0.09282 0.79018 Mdot
  1723. 0.32004 0.96649 Mdot
  1724. 0.9707 0.33136 Mdot
  1725. 0.99785 0.54633 Mdot
  1726. 0.66841 0.97078 Mdot
  1727. 0.99905 0.46915 Mdot
  1728. 0.63334 0.98189 Mdot
  1729. 0.11219 0.8156 Mdot
  1730. 0.96264 0.68964 Mdot
  1731. grestore
  1732. 0.004 setlinewidth
  1733. 0.53979 0.00159 moveto
  1734. 0.05309 0.72422 lineto
  1735. 0.00282 0.44699 lineto
  1736. 0.35314 0.02205 lineto
  1737. 0.08031 0.22823 lineto
  1738. 0.88773 0.81569 lineto
  1739. 0.92133 0.23078 lineto
  1740. 0.94948 0.28099 lineto
  1741. 0.24902 0.93244 lineto
  1742. 0.01547 0.37659 lineto
  1743. 0.33219 0.029 lineto
  1744. 0.29428 0.95572 lineto
  1745. 0.20278 0.09793 lineto
  1746. 0.99362 0.42041 lineto
  1747. 0.27683 0.05257 lineto
  1748. 0.17445 0.12051 lineto
  1749. 0.88666 0.18299 lineto
  1750. 0.46659 0.99888 lineto
  1751. 0.16556 0.87169 lineto
  1752. 0.87212 0.16604 lineto
  1753. 0.00085 0.47077 lineto
  1754. 0.17998 0.11583 lineto
  1755. 0.92264 0.23284 lineto
  1756. 0.44638 0.99712 lineto
  1757. 0.0139 0.61708 lineto
  1758. 0.96248 0.30997 lineto
  1759. 0.99099 0.40552 lineto
  1760. 0.32257 0.96746 lineto
  1761. 0.3333 0.97139 lineto
  1762. 0.79037 0.09296 lineto
  1763. 0.04378 0.70461 lineto
  1764. 0.5469 0.0022 lineto
  1765. 0.92915 0.24342 lineto
  1766. 0.00156 0.46058 lineto
  1767. 0.07855 0.23096 lineto
  1768. 0.00192 0.45625 lineto
  1769. 0.33191 0.9709 lineto
  1770. 0.23001 0.07916 lineto
  1771. 0.98905 0.60406 lineto
  1772. 0.99363 0.57956 lineto
  1773. 0.61265 0.98714 lineto
  1774. 0.09282 0.79018 lineto
  1775. 0.32004 0.96649 lineto
  1776. 0.9707 0.33136 lineto
  1777. 0.99785 0.54633 lineto
  1778. 0.66841 0.97078 lineto
  1779. 0.99905 0.46915 lineto
  1780. 0.63334 0.98189 lineto
  1781. 0.11219 0.8156 lineto
  1782. 0.96264 0.68964 lineto
  1783. Mistroke
  1784. Mfstroke
  1785. 0.06 setlinewidth
  1786. 0.5 0.5 Mdot
  1787. 0.01 setlinewidth
  1788. 0.5 0.5 moveto
  1789. 0.5 0.5 lineto
  1790. stroke
  1791. 0 1 1 setrgbcolor
  1792. 0.06 setlinewidth
  1793. 0.5 0.5 Mdot
  1794. grestore
  1795. % End of Graphics
  1796. MathPictureEnd
  1797. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 95; pictureWidth = 195; pictureHeight = 195; ]
  1798. %!
  1799. %%Creator: Mathematica
  1800. %%AspectRatio: 1 
  1801. MathPictureStart
  1802. /Courier findfont 10  scalefont  setfont
  1803. % Scaling calculations
  1804. 0.5 0.5 0.5 0.5 [
  1805. [(Iteration Number 50)] 0.5 1 0 -2 Msboxa
  1806. [ 0 0 0 0 ]
  1807. [ 1 1 0 0 ]
  1808. ] MathScale
  1809. % Start of Graphics
  1810. 1 setlinecap
  1811. 1 setlinejoin
  1812. newpath
  1813. %%Object: Graphics
  1814. [ ] 0 setdash
  1815. 0 setgray
  1816. gsave
  1817. [(Iteration Number 50)] 0.5 1 0 -2 Mshowa
  1818. grestore
  1819. 0 0 moveto
  1820. 1 0 lineto
  1821. 1 1 lineto
  1822. 0 1 lineto
  1823. closepath
  1824. clip
  1825. newpath
  1826. gsave
  1827. 0 0 1 setrgbcolor
  1828. gsave
  1829. 0.02 setlinewidth
  1830. 0.79548 0.09665 Mdot
  1831. 0.99215 0.58823 Mdot
  1832. 0.52506 0.00063 Mdot
  1833. 0.6362 0.01891 Mdot
  1834. 0.5697 0.00488 Mdot
  1835. 0.92789 0.24133 Mdot
  1836. 0.81972 0.11558 Mdot
  1837. 0.75966 0.07271 Mdot
  1838. 0.97391 0.34061 Mdot
  1839. 0.07627 0.23458 Mdot
  1840. 0.22691 0.08117 Mdot
  1841. 0.99783 0.54656 Mdot
  1842. 0.30037 0.04158 Mdot
  1843. 0.83008 0.12444 Mdot
  1844. 0.48267 0.0003 Mdot
  1845. 0.54336 0.00188 Mdot
  1846. 0.92032 0.22921 Mdot
  1847. 0.93048 0.75433 Mdot
  1848. 0.76114 0.92639 Mdot
  1849. 0.95069 0.28348 Mdot
  1850. 0.3007 0.04144 Mdot
  1851. 0.5758 0.00578 Mdot
  1852. 0.9949 0.57124 Mdot
  1853. 0.33595 0.97232 Mdot
  1854. 0.07418 0.76206 Mdot
  1855. 0.682 0.9657 Mdot
  1856. 0.68348 0.96512 Mdot
  1857. 0.3305 0.97039 Mdot
  1858. 0.28963 0.95359 Mdot
  1859. 0.61473 0.98666 Mdot
  1860. 0.21979 0.9141 Mdot
  1861. 0.86937 0.837 Mdot
  1862. 0.99031 0.59795 Mdot
  1863. 0.47404 0.00067 Mdot
  1864. 0.32134 0.03301 Mdot
  1865. 0.13638 0.15681 Mdot
  1866. 0.97707 0.35032 Mdot
  1867. 0.34827 0.02358 Mdot
  1868. 0.96686 0.32101 Mdot
  1869. 0.99236 0.58706 Mdot
  1870. 0.64234 0.97931 Mdot
  1871. 0.31426 0.96422 Mdot
  1872. 0.46056 0.99844 Mdot
  1873. 0.94704 0.72396 Mdot
  1874. 0.94991 0.71813 Mdot
  1875. 0.79561 0.90326 Mdot
  1876. 0.99429 0.57537 Mdot
  1877. 0.87598 0.8296 Mdot
  1878. 0.80136 0.89898 Mdot
  1879. 0.97879 0.3559 Mdot
  1880. grestore
  1881. 0.004 setlinewidth
  1882. 0.79548 0.09665 moveto
  1883. 0.99215 0.58823 lineto
  1884. 0.52506 0.00063 lineto
  1885. 0.6362 0.01891 lineto
  1886. 0.5697 0.00488 lineto
  1887. 0.92789 0.24133 lineto
  1888. 0.81972 0.11558 lineto
  1889. 0.75966 0.07271 lineto
  1890. 0.97391 0.34061 lineto
  1891. 0.07627 0.23458 lineto
  1892. 0.22691 0.08117 lineto
  1893. 0.99783 0.54656 lineto
  1894. 0.30037 0.04158 lineto
  1895. 0.83008 0.12444 lineto
  1896. 0.48267 0.0003 lineto
  1897. 0.54336 0.00188 lineto
  1898. 0.92032 0.22921 lineto
  1899. 0.93048 0.75433 lineto
  1900. 0.76114 0.92639 lineto
  1901. 0.95069 0.28348 lineto
  1902. 0.3007 0.04144 lineto
  1903. 0.5758 0.00578 lineto
  1904. 0.9949 0.57124 lineto
  1905. 0.33595 0.97232 lineto
  1906. 0.07418 0.76206 lineto
  1907. 0.682 0.9657 lineto
  1908. 0.68348 0.96512 lineto
  1909. 0.3305 0.97039 lineto
  1910. 0.28963 0.95359 lineto
  1911. 0.61473 0.98666 lineto
  1912. 0.21979 0.9141 lineto
  1913. 0.86937 0.837 lineto
  1914. 0.99031 0.59795 lineto
  1915. 0.47404 0.00067 lineto
  1916. 0.32134 0.03301 lineto
  1917. 0.13638 0.15681 lineto
  1918. 0.97707 0.35032 lineto
  1919. 0.34827 0.02358 lineto
  1920. 0.96686 0.32101 lineto
  1921. 0.99236 0.58706 lineto
  1922. 0.64234 0.97931 lineto
  1923. 0.31426 0.96422 lineto
  1924. 0.46056 0.99844 lineto
  1925. 0.94704 0.72396 lineto
  1926. 0.94991 0.71813 lineto
  1927. 0.79561 0.90326 lineto
  1928. 0.99429 0.57537 lineto
  1929. 0.87598 0.8296 lineto
  1930. 0.80136 0.89898 lineto
  1931. 0.97879 0.3559 lineto
  1932. Mistroke
  1933. Mfstroke
  1934. 0.06 setlinewidth
  1935. 0.77472 0.91777 Mdot
  1936. 0.01 setlinewidth
  1937. 0.5 0.5 moveto
  1938. 0.77472 0.91777 lineto
  1939. stroke
  1940. 0 1 1 setrgbcolor
  1941. 0.06 setlinewidth
  1942. 0.76114 0.92639 Mdot
  1943. grestore
  1944. % End of Graphics
  1945. MathPictureEnd
  1946. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 95; pictureWidth = 195; pictureHeight = 195; ]
  1947. %!
  1948. %%Creator: Mathematica
  1949. %%AspectRatio: 1 
  1950. MathPictureStart
  1951. /Courier findfont 10  scalefont  setfont
  1952. % Scaling calculations
  1953. 0.5 0.5 0.5 0.5 [
  1954. [(Iteration Number 100)] 0.5 1 0 -2 Msboxa
  1955. [ 0 0 0 0 ]
  1956. [ 1 1 0 0 ]
  1957. ] MathScale
  1958. % Start of Graphics
  1959. 1 setlinecap
  1960. 1 setlinejoin
  1961. newpath
  1962. %%Object: Graphics
  1963. [ ] 0 setdash
  1964. 0 setgray
  1965. gsave
  1966. [(Iteration Number 100)] 0.5 1 0 -2 Mshowa
  1967. grestore
  1968. 0 0 moveto
  1969. 1 0 lineto
  1970. 1 1 lineto
  1971. 0 1 lineto
  1972. closepath
  1973. clip
  1974. newpath
  1975. gsave
  1976. 0 0 1 setrgbcolor
  1977. gsave
  1978. 0.02 setlinewidth
  1979. 0.933 0.24998 Mdot
  1980. 0.99908 0.53031 Mdot
  1981. 0.77224 0.08061 Mdot
  1982. 0.75213 0.06822 Mdot
  1983. 0.62259 0.01526 Mdot
  1984. 0.84724 0.14025 Mdot
  1985. 0.70147 0.04239 Mdot
  1986. 0.58365 0.00705 Mdot
  1987. 0.60295 0.01071 Mdot
  1988. 0.21073 0.09217 Mdot
  1989. 0.36418 0.0188 Mdot
  1990. 0.76539 0.07625 Mdot
  1991. 0.54515 0.00204 Mdot
  1992. 0.79487 0.09621 Mdot
  1993. 0.65816 0.02567 Mdot
  1994. 0.75313 0.06881 Mdot
  1995. 0.98276 0.36982 Mdot
  1996. 0.95389 0.70971 Mdot
  1997. 0.87735 0.82803 Mdot
  1998. 0.9993 0.52644 Mdot
  1999. 0.93087 0.24632 Mdot
  2000. 0.97665 0.65101 Mdot
  2001. 0.49995 1 Mdot
  2002. 0.15866 0.86536 Mdot
  2003. 0.07705 0.76667 Mdot
  2004. 0.19339 0.89495 Mdot
  2005. 0.31321 0.9638 Mdot
  2006. 0.32666 0.96899 Mdot
  2007. 0.37035 0.9829 Mdot
  2008. 0.60937 0.98789 Mdot
  2009. 0.59131 0.99159 Mdot
  2010. 0.97071 0.66862 Mdot
  2011. 0.99593 0.43632 Mdot
  2012. 0.7811 0.0865 Mdot
  2013. 0.69923 0.04141 Mdot
  2014. 0.78259 0.08752 Mdot
  2015. 0.91172 0.21629 Mdot
  2016. 0.64706 0.02211 Mdot
  2017. 0.99141 0.40773 Mdot
  2018. 0.95143 0.71496 Mdot
  2019. 0.68587 0.96417 Mdot
  2020. 0.45319 0.9978 Mdot
  2021. 0.50202 1 Mdot
  2022. 0.88157 0.82312 Mdot
  2023. 0.91782 0.77464 Mdot
  2024. 0.79595 0.90301 Mdot
  2025. 0.98977 0.60062 Mdot
  2026. 0.90361 0.79512 Mdot
  2027. 0.8928 0.80937 Mdot
  2028. 0.99539 0.43229 Mdot
  2029. grestore
  2030. 0.004 setlinewidth
  2031. 0.933 0.24998 moveto
  2032. 0.99908 0.53031 lineto
  2033. 0.77224 0.08061 lineto
  2034. 0.75213 0.06822 lineto
  2035. 0.62259 0.01526 lineto
  2036. 0.84724 0.14025 lineto
  2037. 0.70147 0.04239 lineto
  2038. 0.58365 0.00705 lineto
  2039. 0.60295 0.01071 lineto
  2040. 0.21073 0.09217 lineto
  2041. 0.36418 0.0188 lineto
  2042. 0.76539 0.07625 lineto
  2043. 0.54515 0.00204 lineto
  2044. 0.79487 0.09621 lineto
  2045. 0.65816 0.02567 lineto
  2046. 0.75313 0.06881 lineto
  2047. 0.98276 0.36982 lineto
  2048. 0.95389 0.70971 lineto
  2049. 0.87735 0.82803 lineto
  2050. 0.9993 0.52644 lineto
  2051. 0.93087 0.24632 lineto
  2052. 0.97665 0.65101 lineto
  2053. 0.49995 1 lineto
  2054. 0.15866 0.86536 lineto
  2055. 0.07705 0.76667 lineto
  2056. 0.19339 0.89495 lineto
  2057. 0.31321 0.9638 lineto
  2058. 0.32666 0.96899 lineto
  2059. 0.37035 0.9829 lineto
  2060. 0.60937 0.98789 lineto
  2061. 0.59131 0.99159 lineto
  2062. 0.97071 0.66862 lineto
  2063. 0.99593 0.43632 lineto
  2064. 0.7811 0.0865 lineto
  2065. 0.69923 0.04141 lineto
  2066. 0.78259 0.08752 lineto
  2067. 0.91172 0.21629 lineto
  2068. 0.64706 0.02211 lineto
  2069. 0.99141 0.40773 lineto
  2070. 0.95143 0.71496 lineto
  2071. 0.68587 0.96417 lineto
  2072. 0.45319 0.9978 lineto
  2073. 0.50202 1 lineto
  2074. 0.88157 0.82312 lineto
  2075. 0.91782 0.77464 lineto
  2076. 0.79595 0.90301 lineto
  2077. 0.98977 0.60062 lineto
  2078. 0.90361 0.79512 lineto
  2079. 0.8928 0.80937 lineto
  2080. 0.99539 0.43229 lineto
  2081. Mistroke
  2082. Mfstroke
  2083. 0.06 setlinewidth
  2084. 0.61712 0.98609 Mdot
  2085. 0.01 setlinewidth
  2086. 0.5 0.5 moveto
  2087. 0.61712 0.98609 lineto
  2088. stroke
  2089. 0 1 1 setrgbcolor
  2090. 0.06 setlinewidth
  2091. 0.60937 0.98789 Mdot
  2092. grestore
  2093. % End of Graphics
  2094. MathPictureEnd
  2095. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 95; pictureWidth = 195; pictureHeight = 195; ]
  2096. %!
  2097. %%Creator: Mathematica
  2098. %%AspectRatio: 1 
  2099. MathPictureStart
  2100. /Courier findfont 10  scalefont  setfont
  2101. % Scaling calculations
  2102. 0.5 0.5 0.5 0.5 [
  2103. [(Iteration Number 150)] 0.5 1 0 -2 Msboxa
  2104. [ 0 0 0 0 ]
  2105. [ 1 1 0 0 ]
  2106. ] MathScale
  2107. % Start of Graphics
  2108. 1 setlinecap
  2109. 1 setlinejoin
  2110. newpath
  2111. %%Object: Graphics
  2112. [ ] 0 setdash
  2113. 0 setgray
  2114. gsave
  2115. [(Iteration Number 150)] 0.5 1 0 -2 Mshowa
  2116. grestore
  2117. 0 0 moveto
  2118. 1 0 lineto
  2119. 1 1 lineto
  2120. 0 1 lineto
  2121. closepath
  2122. clip
  2123. newpath
  2124. gsave
  2125. 0 0 1 setrgbcolor
  2126. gsave
  2127. 0.02 setlinewidth
  2128. 0.96987 0.32906 Mdot
  2129. 0.99167 0.40913 Mdot
  2130. 0.867 0.16043 Mdot
  2131. 0.83051 0.12482 Mdot
  2132. 0.6694 0.02957 Mdot
  2133. 0.72432 0.05314 Mdot
  2134. 0.53709 0.00138 Mdot
  2135. 0.34759 0.0238 Mdot
  2136. 0.21167 0.09151 Mdot
  2137. 0.09687 0.20422 Mdot
  2138. 0.16552 0.12835 Mdot
  2139. 0.37744 0.01525 Mdot
  2140. 0.37884 0.0149 Mdot
  2141. 0.63576 0.01878 Mdot
  2142. 0.60897 0.01202 Mdot
  2143. 0.78696 0.09055 Mdot
  2144. 0.99099 0.40551 Mdot
  2145. 0.95374 0.71004 Mdot
  2146. 0.89686 0.80414 Mdot
  2147. 0.94471 0.72854 Mdot
  2148. 0.95859 0.69924 Mdot
  2149. 0.6654 0.97185 Mdot
  2150. 0.2014 0.90105 Mdot
  2151. 0.05454 0.72707 Mdot
  2152. 0.02689 0.66175 Mdot
  2153. 0.06611 0.74848 Mdot
  2154. 0.1373 0.84416 Mdot
  2155. 0.23566 0.92441 Mdot
  2156. 0.33647 0.9725 Mdot
  2157. 0.52564 0.99934 Mdot
  2158. 0.62179 0.98494 Mdot
  2159. 0.90676 0.79077 Mdot
  2160. 0.99203 0.58892 Mdot
  2161. 0.93016 0.24513 Mdot
  2162. 0.8145 0.1113 Mdot
  2163. 0.8383 0.13182 Mdot
  2164. 0.94622 0.27442 Mdot
  2165. 0.78007 0.0858 Mdot
  2166. 0.99713 0.55352 Mdot
  2167. 0.86188 0.84503 Mdot
  2168. 0.61292 0.98708 Mdot
  2169. 0.47169 0.9992 Mdot
  2170. 0.50976 0.9999 Mdot
  2171. 0.80206 0.89845 Mdot
  2172. 0.85581 0.85128 Mdot
  2173. 0.78599 0.91013 Mdot
  2174. 0.94949 0.71898 Mdot
  2175. 0.90737 0.78991 Mdot
  2176. 0.91707 0.77577 Mdot
  2177. 0.99992 0.50907 Mdot
  2178. grestore
  2179. 0.004 setlinewidth
  2180. 0.96987 0.32906 moveto
  2181. 0.99167 0.40913 lineto
  2182. 0.867 0.16043 lineto
  2183. 0.83051 0.12482 lineto
  2184. 0.6694 0.02957 lineto
  2185. 0.72432 0.05314 lineto
  2186. 0.53709 0.00138 lineto
  2187. 0.34759 0.0238 lineto
  2188. 0.21167 0.09151 lineto
  2189. 0.09687 0.20422 lineto
  2190. 0.16552 0.12835 lineto
  2191. 0.37744 0.01525 lineto
  2192. 0.37884 0.0149 lineto
  2193. 0.63576 0.01878 lineto
  2194. 0.60897 0.01202 lineto
  2195. 0.78696 0.09055 lineto
  2196. 0.99099 0.40551 lineto
  2197. 0.95374 0.71004 lineto
  2198. 0.89686 0.80414 lineto
  2199. 0.94471 0.72854 lineto
  2200. 0.95859 0.69924 lineto
  2201. 0.6654 0.97185 lineto
  2202. 0.2014 0.90105 lineto
  2203. 0.05454 0.72707 lineto
  2204. 0.02689 0.66175 lineto
  2205. 0.06611 0.74848 lineto
  2206. 0.1373 0.84416 lineto
  2207. 0.23566 0.92441 lineto
  2208. 0.33647 0.9725 lineto
  2209. 0.52564 0.99934 lineto
  2210. 0.62179 0.98494 lineto
  2211. 0.90676 0.79077 lineto
  2212. 0.99203 0.58892 lineto
  2213. 0.93016 0.24513 lineto
  2214. 0.8145 0.1113 lineto
  2215. 0.8383 0.13182 lineto
  2216. 0.94622 0.27442 lineto
  2217. 0.78007 0.0858 lineto
  2218. 0.99713 0.55352 lineto
  2219. 0.86188 0.84503 lineto
  2220. 0.61292 0.98708 lineto
  2221. 0.47169 0.9992 lineto
  2222. 0.50976 0.9999 lineto
  2223. 0.80206 0.89845 lineto
  2224. 0.85581 0.85128 lineto
  2225. 0.78599 0.91013 lineto
  2226. 0.94949 0.71898 lineto
  2227. 0.90737 0.78991 lineto
  2228. 0.91707 0.77577 lineto
  2229. 0.99992 0.50907 lineto
  2230. Mistroke
  2231. Mfstroke
  2232. 0.06 setlinewidth
  2233. 0.04959 0.2829 Mdot
  2234. 0.01 setlinewidth
  2235. 0.5 0.5 moveto
  2236. 0.04959 0.2829 lineto
  2237. stroke
  2238. 0 1 1 setrgbcolor
  2239. 0.06 setlinewidth
  2240. 0.09687 0.20422 Mdot
  2241. grestore
  2242. % End of Graphics
  2243. MathPictureEnd
  2244. :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 95; pictureWidth = 195; pictureHeight = 195; endGroup; endGroup; ]
  2245. %!
  2246. %%Creator: Mathematica
  2247. %%AspectRatio: 1 
  2248. MathPictureStart
  2249. /Courier findfont 10  scalefont  setfont
  2250. % Scaling calculations
  2251. 0.5 0.5 0.5 0.5 [
  2252. [(Iteration Number 200)] 0.5 1 0 -2 Msboxa
  2253. [ 0 0 0 0 ]
  2254. [ 1 1 0 0 ]
  2255. ] MathScale
  2256. % Start of Graphics
  2257. 1 setlinecap
  2258. 1 setlinejoin
  2259. newpath
  2260. %%Object: Graphics
  2261. [ ] 0 setdash
  2262. 0 setgray
  2263. gsave
  2264. [(Iteration Number 200)] 0.5 1 0 -2 Mshowa
  2265. grestore
  2266. 0 0 moveto
  2267. 1 0 lineto
  2268. 1 1 lineto
  2269. 0 1 lineto
  2270. closepath
  2271. clip
  2272. newpath
  2273. gsave
  2274. 0 0 1 setrgbcolor
  2275. gsave
  2276. 0.02 setlinewidth
  2277. 0.97581 0.34637 Mdot
  2278. 0.97606 0.34714 Mdot
  2279. 0.90474 0.20643 Mdot
  2280. 0.84551 0.13858 Mdot
  2281. 0.67354 0.03108 Mdot
  2282. 0.63092 0.01744 Mdot
  2283. 0.46565 0.00118 Mdot
  2284. 0.27014 0.05597 Mdot
  2285. 0.1531 0.13991 Mdot
  2286. 0.09768 0.20311 Mdot
  2287. 0.13947 0.15356 Mdot
  2288. 0.26414 0.05913 Mdot
  2289. 0.33645 0.02751 Mdot
  2290. 0.51528 0.00023 Mdot
  2291. 0.57522 0.00569 Mdot
  2292. 0.73602 0.05921 Mdot
  2293. 0.94525 0.2725 Mdot
  2294. 0.99128 0.59299 Mdot
  2295. 0.92399 0.76502 Mdot
  2296. 0.93182 0.75205 Mdot
  2297. 0.89851 0.80197 Mdot
  2298. 0.67627 0.9679 Mdot
  2299. 0.45914 0.99833 Mdot
  2300. 0.39227 0.98826 Mdot
  2301. 0.48462 0.99976 Mdot
  2302. 0.43407 0.99563 Mdot
  2303. 0.58288 0.99308 Mdot
  2304. 0.40862 0.99158 Mdot
  2305. 0.38022 0.98544 Mdot
  2306. 0.49958 1 Mdot
  2307. 0.61734 0.98604 Mdot
  2308. 0.90975 0.78653 Mdot
  2309. 0.9997 0.51729 Mdot
  2310. 0.91486 0.2209 Mdot
  2311. 0.83605 0.12977 Mdot
  2312. 0.854 0.1469 Mdot
  2313. 0.94016 0.26281 Mdot
  2314. 0.84164 0.13492 Mdot
  2315. 0.99824 0.54186 Mdot
  2316. 0.89105 0.81158 Mdot
  2317. 0.6683 0.97082 Mdot
  2318. 0.54499 0.99797 Mdot
  2319. 0.59002 0.99183 Mdot
  2320. 0.78606 0.91009 Mdot
  2321. 0.83716 0.86922 Mdot
  2322. 0.81583 0.88763 Mdot
  2323. 0.94886 0.72028 Mdot
  2324. 0.94931 0.71937 Mdot
  2325. 0.97755 0.64815 Mdot
  2326. 0.9984 0.46007 Mdot
  2327. grestore
  2328. 0.004 setlinewidth
  2329. 0.97581 0.34637 moveto
  2330. 0.97606 0.34714 lineto
  2331. 0.90474 0.20643 lineto
  2332. 0.84551 0.13858 lineto
  2333. 0.67354 0.03108 lineto
  2334. 0.63092 0.01744 lineto
  2335. 0.46565 0.00118 lineto
  2336. 0.27014 0.05597 lineto
  2337. 0.1531 0.13991 lineto
  2338. 0.09768 0.20311 lineto
  2339. 0.13947 0.15356 lineto
  2340. 0.26414 0.05913 lineto
  2341. 0.33645 0.02751 lineto
  2342. 0.51528 0.00023 lineto
  2343. 0.57522 0.00569 lineto
  2344. 0.73602 0.05921 lineto
  2345. 0.94525 0.2725 lineto
  2346. 0.99128 0.59299 lineto
  2347. 0.92399 0.76502 lineto
  2348. 0.93182 0.75205 lineto
  2349. 0.89851 0.80197 lineto
  2350. 0.67627 0.9679 lineto
  2351. 0.45914 0.99833 lineto
  2352. 0.39227 0.98826 lineto
  2353. 0.48462 0.99976 lineto
  2354. 0.43407 0.99563 lineto
  2355. 0.58288 0.99308 lineto
  2356. 0.40862 0.99158 lineto
  2357. 0.38022 0.98544 lineto
  2358. 0.49958 1 lineto
  2359. 0.61734 0.98604 lineto
  2360. 0.90975 0.78653 lineto
  2361. 0.9997 0.51729 lineto
  2362. 0.91486 0.2209 lineto
  2363. 0.83605 0.12977 lineto
  2364. 0.854 0.1469 lineto
  2365. 0.94016 0.26281 lineto
  2366. 0.84164 0.13492 lineto
  2367. 0.99824 0.54186 lineto
  2368. 0.89105 0.81158 lineto
  2369. 0.6683 0.97082 lineto
  2370. 0.54499 0.99797 lineto
  2371. 0.59002 0.99183 lineto
  2372. 0.78606 0.91009 lineto
  2373. 0.83716 0.86922 lineto
  2374. 0.81583 0.88763 lineto
  2375. 0.94886 0.72028 lineto
  2376. 0.94931 0.71937 lineto
  2377. 0.97755 0.64815 lineto
  2378. 0.9984 0.46007 lineto
  2379. Mistroke
  2380. Mfstroke
  2381. 0.06 setlinewidth
  2382. 0.99172 0.40939 Mdot
  2383. 0.01 setlinewidth
  2384. 0.5 0.5 moveto
  2385. 0.99172 0.40939 lineto
  2386. stroke
  2387. 0 1 1 setrgbcolor
  2388. 0.06 setlinewidth
  2389. 0.9984 0.46007 Mdot
  2390. grestore
  2391. % End of Graphics
  2392. MathPictureEnd
  2393. ^*)